Những câu hỏi liên quan
Nguyễn Văn Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 3 2023 lúc 20:05

loading...  

Bình luận (2)
Nguyễn Hoàng Duy
26 tháng 3 2023 lúc 21:02

program kiem_tra_so_nguyen_to;

var
  N, i: Integer;
  laSoNguyenTo: Boolean;

begin
  Write('Nhap vao mot so nguyen duong N: ');
  Readln(N);

  laSoNguyenTo := True;
  
  if (N < 2) then
    laSoNguyenTo := False
  else
  begin
    for i := 2 to N - 1 do
    begin
      if (N mod i = 0) then
      begin
        laSoNguyenTo := False;
        Break;
      end;
    end;
  end;

  if (laSoNguyenTo) then
    Writeln(N, ' la so nguyen to')
  else
    Writeln(N, ' khong la so nguyen to');
    
  Readln;
end.

Bình luận (0)
Lê Huỳnh Nhân
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:56

2:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,kt=0;

cin>>n;

for (int i=2; i*i<=n; i++)

if (n%i==0) kt=1;

if (kt==0) cout<<"YES";

else cout<<"NO";

}

Bình luận (0)
Py
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:25

Câu 1: 

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

Bình luận (0)
Genj Kevin
25 tháng 4 2021 lúc 21:26

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

Bình luận (0)
Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 21:26

Câu 1: 

uses crt;

var kt,n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Bình luận (0)
T Đạt
Xem chi tiết
HT.Phong (9A5)
29 tháng 3 2023 lúc 16:00

Uses crt;

var n,i,z: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(n mod i=0) then z:=z+1;

if(z=2) then writeln(z,' la so nguyen to')

else writeln(z,' khong phai la so nguyen to');

readln;

end.

Bình luận (0)
Nguyễn Hoàng Duy
29 tháng 3 2023 lúc 23:45

program PrimeNumber;

uses crt;

var
  N, i: integer;
  isPrime: boolean;

begin
  clrscr;
  write('Enter N: ');
  readln(N);

  if N <= 1 then
  begin
    writeln('N is not a prime number');
  end
  else
  begin
    isPrime := true;
    for i := 2 to trunc(sqrt(N)) do
    begin
      if N mod i = 0 then
      begin
        isPrime := false;
        break;
      end;
    end;

    if isPrime then
    begin
      writeln('N is a prime number');
    end
    else
    begin
      writeln('N is not a prime number');
    end;
  end;

  readln;
end.

Bình luận (0)
Nguyễn Yến Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2022 lúc 14:47

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

cin>>n;

if (n>1) 

{

kt=true;

for (i=2; i*i<=n; i++) 

if (n%i==0) kt=false;

if (kt==true) cout<<n<<" la so nguyen to";

else cout<<n<<" khong la so nguyen to";

}

else cout<<n<<" khong la so nguyen to";

return 0;

}

 

Bình luận (0)
Quỳnh Trâm Nguyễnn
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 23:57

uses crt;

var n,i,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

 if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.

Bình luận (0)
Quỳnh Trâm Nguyễnn
Xem chi tiết
Kiều Vũ Linh
7 tháng 5 2022 lúc 13:31

Var n,i,souoc:integer;

Begin

Write('Nhap N = ');readln(n);

souoc:=0;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc=2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Bình luận (0)
Nguyễn Hoàng Duy
20 tháng 3 2023 lúc 23:26

program KiemTraSoNguyenTo;
var
  N, i: integer;
  IsPrime: boolean;
begin
  write('Nhap N: ');
  readln(N);

  IsPrime := true;
  if (N < 2) then
    IsPrime := false
  else
    for i := 2 to trunc(sqrt(N)) do
      if (N mod i = 0) then
      begin
        IsPrime := false;
        break;
      end;

  if IsPrime then
    writeln(N, ' la so nguyen to')
  else
    writeln(N, ' khong la so nguyen to');

  readln;
end.

Bình luận (0)
XitsuKata
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2022 lúc 13:52

Cau 1:

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

Bình luận (0)
Veres Pro
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 13:10

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

bool kt=true;

for (int i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>=2) cout<<"YES";

else cout<<"NO";

return 0;

}

Bình luận (0)